main
Sub Main
	'msgbox args
	args = trim(args)
	if args="" then 
		args = cint(20)
	end if
	Dim doc
	Set doc = Application.ActiveDocument
	dim tmpfile
	tmpfile = doc.path & "\tmp1.mcr"
	dim ostr
	'ostr = "Application.ExecuteCommand(""Quick Filter Shapes"")" & chr(13) & chr(10)
	ostr = "Application.ExecuteCommand(""Add Mitres To Drafting"")" & chr(13) & chr(10)
	ostr = ostr & "DlgPrompt.Question(""Get Miter Radius"").Answer(""" & cint(args)& """)" 
	Dim fso,fw
	Set fso = CreateObject("scripting.filesystemobject")
	Set fw = fso.CreateTextFile(tmpfile,True)
	fw.Write ostr
	fw.close
	Set fw = Nothing	
	Set fso = Nothing			
	application.RunMacro(tmpfile,"")
end sub	
	

